home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 72.bas < prev    next >
BASIC Source File  |  1995-01-06  |  9KB  |  168 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
  3. 30 CLS 1 : COLOR 5
  4. 40 PRINT "PASTURE SCAPE VIOLENCE" : PRINT "written  TAKAO KUSHIDA"
  5. 50 S$="%CQ8T150" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  6. 60 '
  7. 70 '
  8. 80 '
  9. 90 AL$="@34V8O2L16Q1" : AR$=AL$+"V2R10" : AE$=AL$+"V7"
  10. 100 A0L$=AL$+"@108Q8]] ARAR>E8<A>D#8<A>D8C8D8 <ARAR>E8<A>D#8<A>D8D#8D8 "
  11. 110 A0R$=AR$+"@108Q8]  ARAR>E8<A>D#8<A>D8C8D8 <ARAR>E8<A>D#8<A>D8D#8D90"
  12. 120 A0E$=AL$+"@108Q8]] ARAR>E8<A>D#8<A>D8C8D<G ARAR>E8<A>D#8<A>D8EGA8  "
  13. 130 A0F$=AR$+"@108Q8]  ARAR>E8<A>D#8<A>D8C8D<G ARAR>E8<A>D#8<A>D8EGA90 "
  14. 140 A1L$=AL$+"A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C<D@34RDD#8>E@34RE@34R"
  15. 150 A1R$=AR$+"A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C<D@34RDD#8>E@34RE90"
  16. 160 A1E$=AL$+" A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C (E@34R)ED#DC<G "
  17. 170 A1F$=AR$+" A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C (E@34R)ED#DC90 " 
  18. 180 A1G$=AL$+" A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>C  @34A@34RG@34RERD#D"
  19. 190 A1H$=AR$+" A@34RA8GA>C<D@34RDD#8E8GG#A@34RA8GA>CQ8@38A@38RG@38RERD# "
  20. 200 A1I$=AL$+" A@34RA8GA>C<D@34RDD#8E8GG#"
  21. 210 A1J$=AR$+" A@34RA8GA>C<D@34RDD#8E8GG#"
  22. 220 A1I$=A1I$+">E<E8>D#<E8>D<E8>C<E @108Q8]]] RG4 "
  23. 230 A1J$=A1J$+">E<E8>D#<E8>D<E8>C<E @108Q8]]  RG8 "
  24. 240 A2L$=AL$+"@108Q8>> D2&D4&D8 E8&E1"
  25. 250 A2R$=AE$+"@108Q8>  B2&B4&B8>C8&C1"
  26. 260 A2E$=AL$+"@108Q8>> D2&D4 G8 E8&E2  D4C4"
  27. 270 A2F$=AE$+"@108Q8>  B2&B4>E8 C8&C2 <B4A4"
  28. 280 A2G$=AL$+"@108Q8>> C2&C4&C8 G8&G2F4E4"
  29. 290 A2H$=AE$+"@108Q8>  G2&G4&G8>C8&C2D4C4"
  30. 300 A3L$=AL$+"@34Q1>   ARRRARRGRGE8G8G#8 ARRRARRGRGE8D#8E8 Q8"
  31. 310 A3R$=AE$+"@34Q1>   ERRRERRDRDC8D8D#8 ERRRERRDRDC8C8 C8 Q8"
  32. 320 A3E$=AL$+"@34Q1>   ERRRRR DR RRRRRRRR CRRRRRDR RRRRRRRR Q8"
  33. 330 A3F$=AE$+"@34Q1>   CRRRRR<BR RRRRRRRR ARRRRRBR RRRRRRRR Q8"
  34. 340 A3G$=AL$+"@34Q1>   ERRRRR DR RRRRRRRR CRRRRR<BR RR>CRRRDR Q8"
  35. 350 A3H$=AE$+"@34Q1>   CRRRRR<BR RRRRRRRR ARRRRR GR RR ARRRBR Q8"
  36. 360 A4L$=AL$+"@34Q1>   ERFGRRRR RRARGRAR  GRFERRRR RRCRRRDR  Q8"
  37. 370 A4R$=AE$+"@34Q1>   CRDERRRR RRFRDRFR  ERDCRRRR<RRGRRRAR  Q8"
  38. 380 A4E$=AL$+"@34Q1>   ERFGRRRR RRARGRAR  G2 F4E4  Q8"
  39. 390 A4F$=AE$+"@34Q1>   CRDERRRR RRFRDRFR  E2 D4C4  Q8"
  40. 400 A4G$=AL$+"@34Q1>   ERFGRRRR RRARGRAR  G4RRF4RRE4 Q8"
  41. 410 A4H$=AE$+"@34Q1>   CRDERRRR RRFRDRFR  E4RRD4RRC4 Q8"
  42. 420 A5L$=AL$+"@34Q8>   C@34RRR C4&C2 V3Q1 RRCRRC RR CRRC RRCR"
  43. 430 A5R$=AE$+"@34Q8>  <G@34RRR G4&G2 V2Q1 RRGRRG#RR ARRA#RRBR"
  44. 440 A5E$=AL$+"@34Q1>  <B@34>C@34RR Q8C4&C2 &C1 "
  45. 450 A5F$=AE$+"@34Q1>  <G@34 G@34RR Q8G4&G2 &G1 "
  46. 460 A6L$=AL$+"@34Q1>   E@34RRRE4E8F8E8 CRR V5CCRCRCR<FRFGRGB8"
  47. 470 A6R$=AE$+"@34Q1>   C@34RRRC4C8D8C8<ARR V1AARARAR DRDEREG8"
  48. 480 A6E$=AL$+"@34Q1>   GE@34RRE4E8F8E8G  V5(RRG@34)3 V6ARRGRRF8"
  49. 490 A6F$=AE$+"@34Q1>   DC@34RRC4C8D8C8D  V0(RRD   )3 V5FRRERRD8"
  50. 500 '
  51. 510 CL$="@20V6O4L16" : CR$=CL$+"V5"
  52. 520 C1L$=CL$+" ARDRARDARADRARDC#  DRARDRADRDARDRAR"
  53. 530 C1R$=CR$+" FRRRFRRFRFRRFRRR  <BRRRBRRBRBRRBRRR"
  54. 540 C1E$=CL$+" ARDRARDARADRARDC#  DRARDRADRD<B8>C8 F8"
  55. 550 C1F$=CR$+" FRRRFRRFRFRRFRRR  <BRRRBRRBRB G8 A8>C8"
  56. 560 C2L$=CL$+" E8(F8G8E4)3 F8G8E8"
  57. 570 C2R$=CR$+" C8(D8E8C4)3 D8E8C8"
  58. 580 C2E$=CL$+" F8E8 C8<G2&G4&G8 >C4 E4F4"
  59. 590 C2F$=CR$+" D8C8<G8 E2&E4&E8  G4>C4D4" 
  60. 600 C3L$=CL$+" RRRR D&D8C RRRR<A4>  RRCC#D&D8C  RERR G4"
  61. 610 C3R$=CR$+" RRRR<A&A8G RRRR E4   RRGR A&A8G >RCRR D4"
  62. 620 C3E$=CL$+"@24Q5V6   <DRDR>(D[DR)4 V6<GRGR>(G[GR)4 Q8"
  63. 630 C3F$=CR$+"@24Q5V2R5 <DRDR>(D[RA)4 V2<GRGR>(R[RD)  Q8"
  64. 640 C3G$=CL$+" RRRR D&D8C RRRR<A4   ]E4E8]F4EF ]L32 G#AA#B>CC# D16"
  65. 650 C3H$=CR$+" RRRR<A&A8G RRRR E4   ]C4C8]D4CD ]L32 E FF#G AA# B16"
  66. 660 C4L$=CL$+"V1 B2&B4&B8A8 &A2&A4 F#4"
  67. 670 C4R$=CR$+"V0 G2&G4&G8F8 &F2&F4 D#4"
  68. 680 C4C$=CR$+"V0 E2&E4&E8D8 &D2&D4 C4"
  69. 690 C4E$=CL$+"V1 B2&B4&B8>C8 &C2&C4 >D4" :C4H$=CL$+"V1B1&B1L32 AG#GF#FE"
  70. 700 C4F$=CR$+"V0 G2&G4&G8 A8 &A2&A4  B4" :C4I$=CR$+"V0G1&G1L32 F#FED#DC"
  71. 710 C4G$=CR$+"V0 E2&E4&E8 F8 &F2&F4  G4" :C4J$=CR$+"V0E1&E1L32<AG#GF#FE"
  72. 720 C5L$=CL$+"V4 <B2&B4&B8>C8 &C2 ]]ERR DRRC8"
  73. 730 C5R$=CR$+"V3 <G2&G4&G8 A8 &A2>]]CRR<BRRA8"
  74. 740 E1$ ="@13V5O5L16   ( %L5AR%R5A#R%L5A#R(%R5A#%L5AR)%C>CR<G#A) Q8"
  75. 750 E2$ ="@94V7O4L16  BR>CRC<BRBR>C<B8>C8DC <BR>CRC<BRBR>C<B8>C8D8  Q8"
  76. 760 E2E$="@94V7O4L16  BR>CRC<BRBR>>C<BRC8DC <BR>CRC<BRBR>C<B8>>CRCR Q8"
  77. 770 E3$ ="@60V7O4L16Q8  ((A<A>)Q8A8Q4A<A>) (A<A>)>A8<<A>A(A<A>)4"
  78. 780 B1$= "@28 V9O3L16Q7 <A8&AG8&GA4ER>ERE<G A8&AG8&GA4D8D#8E8"
  79. 790 B1E$="@28 V9O3L16Q7 <A8&AG8&GA4ER>ERE<G A#8&A# A#8AA#8 >C4<A#4"
  80. 800 B2$ ="@107V9O1L16Q4 >D4&D8DR RRRRRR<DR  G4&G8GR RRGR Q8A4      Q8"
  81. 810 B2E$="@107V9O1L16Q8  R1R2R4  A4"
  82. 820 B2F$="@107V9O1L16Q8 >D4&D8DR RRRRRR<DR  G4&G8GR F4G4       "
  83. 830 B3$ ="@28 V9O3L16Q7 CRC8CRCCR<B>C8CRC<E  FRF8FRFFREF8>E8D8 Q8"
  84. 840 B3E$="@28 V9O3L16Q7 CRRC8<B>C8&C<B>C8<GR>C<A FRF8>FD#RCR<BA#8G#8A#8"
  85. 850 B3F$="@28 V9O3L16Q7 <(ERR)ERR AGRF8E8     FRF8FRFF8EF8G8>D8 Q8"
  86. 860 B4$ ="@28 V9O3L16Q7 DRD8DC8<A8G#A8G8A>E [GRG8GF8D8CD8C8D8  Q8"
  87. 870 B4E$="@28 V8O3L16Q7 D8GDRRRR RCC8D8<AG# ]G8FGRRRR RFF8G8>C8  Q8"
  88. 880 B4F$="@28 V8O3L16Q7 D8GDRRRR RCC8D8<AG# ]F4F8G4G8>D4"
  89. 890 B5$ ="@28 V9O3L16Q7 CRRRC4<A8>C8<A8F8 &FEFR F8F#8 G8DF8GB8"
  90. 900 B5E$="@28 V9O3L16Q7 CR<C8>C4<A8>C8<A8>G8&G<G>G8F<F>F8E<E>CD8<AB8"
  91. 910 B5F$="@28 V9O3L16Q7 CR<C8>C4<B>CRC<CB>C8 G<G8>F#<G8>F<G8>E<G8>D8C#8"
  92. 920 B5G$="@28 V9O3L16Q7 C<GB8>C4<C>CRC<CB>C8 <GGRGG8FGRDG8F8G8"
  93. 930 B5H$="@28 V9O3L16Q7 CRRRC4<B8>C8<B8>C8 &C1"
  94. 940 '
  95. 950 P1$= "@2V10O1L16  CRRRCRRRCRRRCRRR      CRRRCRRRCRRRCRRR"
  96. 960 P2$= "@8V10O3L16  RRGRRRGRRRGRRRGR      RRGRRRGRRRGRRRGR"
  97. 970 Q2$= "@8V10O3L16  RRGRRRGRRRGRRRGR      RRGRRRGRRG<<E>>RGRV3GG"
  98. 980 P3$= "@2V5 O7L16  FRRRFRRRFRRRFRRA32F32 FRRRFRRRFRRRFRRR"
  99. 990 P4$= "@6V3 O6L16  RRCRRRCRRRCRRRCR      RRCRRRCRRRCRRRCR"
  100. 1000 PP1$="@9V10O1L16  CRRCRRRRRRCRRCRC      CRCRRRRRRRCRRRCR"
  101. 1010 PS1$="@9V10O1L16  CRRCRRRRRRCRRCRC      CRRRRRRRRRRRRRRR"
  102. 1020 SS1$="@9V10O1L16  CRRRRRRRRRRRRRRR      RRRRRRRRRRRRRRRR"
  103. 1030 PP2$="@8V10O3L16  RRRRGRRGRGRRGRRR      RRRRGRRGRGRRGRV3GG"
  104. 1040 PS2$="@8V10O3L16  RRRRGRRGRGRRGRRR      RRRRRRRRRRRRRRRR"
  105. 1050 PP3$="@5V5 O5L16  RRCRRRCRCRRRRRCD32C32 CRCRRRCRCRRRRRRR"
  106. 1060 PS3$="@5V5 O5L16  RRCRRRCRCRRRRRCD32C32 CRRRRRRRRRRRRRRR"
  107. 1070 BP1$="@8V10O2L16  RRRRRRRRRRRRRRRR      RRRRRRRRGRGRG32G32GRG"
  108. 1080 BP2$="@9V10O2L16  R1   %L9CR%R9CR%CCR%L9CCR%R9C%L9CR%R9CR %C@8GR"
  109. 1090 BP3$="@1V15O3L16  R1   %L9RG%R9GR%L9GR%R9G%L9GRG%R9GR%L9GR%CGR"
  110. 1100 BP4$="@2V8 O1L16  R1   RRRRRRRR RRCRCRCR "
  111. 1110 BP5$="@6V0 O5L16 (%L9CR%R9CRCR%CCR)(CCCC])CC]C]C] %R9C]]%L9C %C<C8"
  112. 1120 '
  113. 1130 'PLAY ,,E3$,,,,,,PP1$,BP5$ :END
  114. 1140 'PLAY B4$,C5L$,C5R$ :END
  115. 1150 'PLAY ,,,,,,PP1$,PP2$,PP3$ :  END
  116. 1160 'GOTO 1220
  117. 1170 '
  118. 1180 '
  119. 1190 '
  120. 1200 PLAY     ,A1L$,A1R$,,,   ,   ,P4$,P3$
  121. 1210 PLAY     ,A1E$,A1F$,,,   ,   ,P4$,P3$
  122. 1220 PLAY     ,A1L$,A1R$,,,E3$,P1$,P4$,P3$
  123. 1230 PLAY     ,A1G$,A1H$,,,E3$,P1$,P4$,P3$,BP1$
  124. 1240 PLAY B1$ ,A1L$,A1R$,,,E3$,P1$,P2$,P3$
  125. 1250 PLAY B1$ ,A1E$,A1F$,,,E3$,P1$,P2$,P3$
  126. 1260 PLAY B1$ ,A1L$,A1R$,,,E3$,P1$,P2$,P3$
  127. 1270 PLAY B1E$,A1I$,A1J$,,,E3$,P1$,P2$,P3$,BP5$
  128. 1280 PLAY     ,C1L$,C1R$,A0L$,A0R$,E1$,PP1$,PP2$,PP3$,P4$
  129. 1290 PLAY B2E$,C1L$,C1R$,A0E$,A0F$,E1$,PP1$,PP2$,PP3$,P4$
  130. 1300 PLAY B2$ ,C1L$,C1R$,A0L$,A0R$,E1$,PP1$,PP2$,PP3$,P4$
  131. 1310 PLAY B2F$,C1E$,C1F$,A0E$,A0F$,E1$,PP1$,PP2$,PP3$,P4$,BP2$
  132. 1320 PLAY B3$ ,C2L$,C2R$,A2L$,A2R$,,P1$,PP2$,PP3$,P3$,P4$
  133. 1330 PLAY B3E$,C2L$,C2R$,A2E$,A2F$,,P1$,PP2$,PP3$,P3$,P4$
  134. 1340 PLAY B3$ ,C2L$,C2R$,A2L$,A2R$,,P1$,PP2$,PP3$,P3$,P4$
  135. 1350 PLAY B3F$,C2E$,C2F$,A2G$,A2H$,,P1$,PP2$,PP3$,P3$,P4$
  136. 1360 PLAY B3$ ,C2L$,C2R$,A2L$,A2R$,,P1$,PP2$,PP3$,P3$,P4$
  137. 1370 PLAY B3E$,C2L$,C2R$,A2E$,A2F$,,P1$,PP2$,PP3$,P3$,P4$
  138. 1380 PLAY B3$ ,C2L$,C2R$,A2L$,A2R$,,P1$,PP2$,PP3$,P3$,P4$
  139. 1390 PLAY B3F$,C2E$,C2F$,A2G$,A2H$,,P1$,PP2$,PP3$,P3$,P4$,BP3$
  140. 1400 PLAY A3L$,A3R$,    ,    ,    ,,PP1$,PP2$,PP3$,P4$
  141. 1410 PLAY A3L$,A3R$,    ,    ,    ,,PP1$,PP2$,PP3$,P4$
  142. 1420 PLAY A3L$,A3R$,    ,C3L$,C3R$,,PP1$,PP2$,PP3$
  143. 1430 PLAY A3L$,A3R$,B2E$,C3L$,C3R$,,PS1$,PP2$,PP3$,BP4$
  144. 1440 PLAY A3E$,A3F$,B2$ ,C3E$,C3F$,,P1$,P4$
  145. 1450 PLAY A3G$,A3H$,B2$ ,C3E$,C3F$,,P1$,P4$
  146. 1460 PLAY A3E$,A3F$,B2$ ,C3E$,C3F$,,P1$,P4$
  147. 1470 PLAY A3G$,A3H$,B2F$,C3E$,C3F$,,P1$,P4$,BP1$
  148. 1480 PLAY A3E$,A3F$,B4$ ,C3E$,C3F$,E2$ ,P1$,PP2$,PP3$,P4$
  149. 1490 PLAY A3G$,A3H$,B4$ ,C3E$,C3F$,E2E$,P1$,PP2$,PP3$,P4$
  150. 1500 PLAY A3E$,A3F$,B4$ ,C3E$,C3F$,E2$ ,P1$,PP2$,PP3$,P4$
  151. 1510 PLAY A3G$,A3H$,B4$ ,C3E$,C3F$,E2E$,P1$,PP2$,PP3$,P4$
  152. 1520 PLAY A6L$,A6R$,B4$ ,C5L$,C5R$,,SS1$
  153. 1530 PLAY A6E$,A6F$,B4$ ,C5L$,C5R$,,SS1$
  154. 1540 PLAY A6L$,A6R$,B4E$,C3L$,C3R$,,PS1$,PS2$,PS3$,BP4$
  155. 1550 PLAY A6E$,A6F$,B4F$,C3L$,C3R$,,PP1$,PP2$,PP3$,P4$,BP2$
  156. 1560 PLAY A4L$,A4R$,B4$ ,C3L$,C3R$,E2$ ,P1$,PP2$,PP3$,P4$
  157. 1570 PLAY A4E$,A4F$,B4$ ,C3L$,C3R$,E2E$,P1$,PP2$,PP3$,P4$
  158. 1580 PLAY A4L$,A4R$,B4E$,C3L$,C3R$,E2$ ,P1$,PP2$,PP3$,P4$
  159. 1590 PLAY A4G$,A4H$,B4F$,C3G$,C3H$,E2E$,P1$,PP2$,PP3$,P4$,BP1$
  160. 1600 PLAY A5L$,A5R$,B5$ ,C4L$,C4R$,C4C$,PP1$,PP2$,PP3$
  161. 1610 PLAY A5L$,A5R$,B5E$,C4E$,C4F$,C4G$,PP1$,PP2$,PP3$
  162. 1620 PLAY A5L$,A5R$,B5F$,C4L$,C4R$,C4C$,PP1$,PP2$,PP3$
  163. 1630 PLAY A5L$,A5R$,B5G$,C4E$,C4F$,C4G$,PS1$,PS2$,PS3$
  164. 1640 PLAY A5E$,A5F$,B5$ ,C4L$,C4R$,C4C$
  165. 1650 PLAY     ,    ,B5E$,C4E$,C4F$,C4G$
  166. 1660 PLAY     ,    ,B5F$,C4L$,C4R$,C4C$
  167. 1670 PLAY     ,    ,B5H$,C4H$,C4I$,C4J$
  168.